perl conditionals

join shbcf.ru